﻿Imports System

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports Clases



'''<summary>
'''Se trata de una clase de prueba para OfertaTest y se pretende que
'''contenga todas las pruebas unitarias OfertaTest.
'''</summary>
<TestClass()> _
Public Class OfertaTest


    Private testContextInstance As TestContext

    '''<summary>
    '''Obtiene o establece el contexto de la prueba que proporciona
    '''la información y funcionalidad para la ejecución de pruebas actual.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(value As TestContext)
            testContextInstance = Value
        End Set
    End Property

#Region "Atributos de prueba adicionales"
    '
    'Puede utilizar los siguientes atributos adicionales mientras escribe sus pruebas:
    '
    'Use ClassInitialize para ejecutar código antes de ejecutar la primera prueba en la clase 
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Use ClassCleanup para ejecutar código después de haber ejecutado todas las pruebas en una clase
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Use TestInitialize para ejecutar código antes de ejecutar cada prueba
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Use TestCleanup para ejecutar código después de que se hayan ejecutado todas las pruebas
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


    '''<summary>
    '''Una prueba de Constructor Oferta
    '''</summary>
    <TestMethod()> _
    Public Sub OfertaConstructorTest()
        Dim nombre As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim producto As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim precio As [Decimal] = New [Decimal]() ' TODO: Inicializar en un valor adecuado
        Dim fecha As DateTime = New DateTime() ' TODO: Inicializar en un valor adecuado
        Dim cantidad As Integer = 0 ' TODO: Inicializar en un valor adecuado
        Dim target As Oferta = New Oferta(nombre, producto, precio, fecha, cantidad)
        Assert.Inconclusive("TODO: Implementar código para comprobar el destino")
    End Sub

    '''<summary>
    '''Una prueba de Constructor Oferta
    '''</summary>
    <TestMethod()> _
    Public Sub OfertaConstructorTest1()
        Dim target As Oferta = New Oferta()
        Assert.Inconclusive("TODO: Implementar código para comprobar el destino")
    End Sub

    '''<summary>
    '''Una prueba de Equals
    '''</summary>
    <TestMethod()> _
    Public Sub EqualsTest()
        Dim target As IEquatable(Of Oferta) = New Oferta() ' TODO: Inicializar en un valor adecuado
        Dim other As Oferta = Nothing ' TODO: Inicializar en un valor adecuado
        Dim expected As Boolean = False ' TODO: Inicializar en un valor adecuado
        Dim actual As Boolean
        actual = target.Equals(other)
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de Cantidad
    '''</summary>
    <TestMethod()> _
    Public Sub CantidadTest()
        Dim target As Oferta = New Oferta() ' TODO: Inicializar en un valor adecuado
        Dim expected As Integer = 0 ' TODO: Inicializar en un valor adecuado
        Dim actual As Integer
        target.Cantidad = expected
        actual = target.Cantidad
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de Fecha
    '''</summary>
    <TestMethod()> _
    Public Sub FechaTest()
        Dim target As Oferta = New Oferta() ' TODO: Inicializar en un valor adecuado
        Dim expected As DateTime = New DateTime() ' TODO: Inicializar en un valor adecuado
        Dim actual As DateTime
        target.Fecha = expected
        actual = target.Fecha
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de Nombre
    '''</summary>
    <TestMethod()> _
    Public Sub NombreTest()
        Dim target As Oferta = New Oferta() ' TODO: Inicializar en un valor adecuado
        Dim expected As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim actual As String
        target.Nombre = expected
        actual = target.Nombre
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de Precio
    '''</summary>
    <TestMethod()> _
    Public Sub PrecioTest()
        Dim target As Oferta = New Oferta() ' TODO: Inicializar en un valor adecuado
        Dim expected As [Decimal] = New [Decimal]() ' TODO: Inicializar en un valor adecuado
        Dim actual As [Decimal]
        target.Precio = expected
        actual = target.Precio
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de Producto
    '''</summary>
    <TestMethod()> _
    Public Sub ProductoTest()
        Dim target As Oferta = New Oferta() ' TODO: Inicializar en un valor adecuado
        Dim expected As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim actual As String
        target.Producto = expected
        actual = target.Producto
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub
End Class
